home *** CD-ROM | disk | FTP | other *** search
/ The National Palace Museum Experience / The National Palace Museum Experience.iso / Programs / Index.dxr / 00115_control handlers.ls < prev    next >
Encoding:
Text File  |  1998-11-19  |  4.5 KB  |  166 lines
  1. global gmouseupslist, gmousedownslist, hiliterect, barsprite, contentsprite, roomlist, objectlist, objectpct, glist
  2.  
  3. on initcontrols
  4.   set gmousedownslist to []
  5.   set gmouseupslist to []
  6.   setAt(gmouseupslist, hiliterect, 0)
  7.   setAt(gmousedownslist, hiliterect, 0)
  8. end
  9.  
  10. on addcontrol channel, chotspots, cactions, whichway
  11.   if not listp(chotspots) or not listp(cactions) then
  12.     return #badcontrol
  13.   end if
  14.   if count(chotspots) <> count(cactions) then
  15.     return #badcontrol
  16.   end if
  17.   if whichway = #down then
  18.     setAt(gmousedownslist, channel, [chotspots, cactions])
  19.   else
  20.     setAt(gmouseupslist, channel, [chotspots, cactions])
  21.   end if
  22. end
  23.  
  24. on deletecontrol channel, whichway
  25.   if (whichway = #up) or (whichway = #both) then
  26.     setAt(gmouseupslist, channel, 0)
  27.   end if
  28.   if (whichway = #down) or (whichway = #both) then
  29.     setAt(gmousedownslist, channel, 0)
  30.   end if
  31. end
  32.  
  33. on hitcontrol whichway
  34.   set me to the clickOn
  35.   set hitpoint to point(the mouseH - the left of sprite me, the mouseV - the top of sprite me)
  36.   if whichway = #down then
  37.     set controlslist to gmousedownslist
  38.     if the mouseMember = member "hilite rect" then
  39.       puppetSound(2, "Button")
  40.     end if
  41.   else
  42.     set controlslist to gmouseupslist
  43.   end if
  44.   set mycontrol to getAt(controlslist, me)
  45.   if not listp(mycontrol) then
  46.     return #notcontrol
  47.   end if
  48.   if count(mycontrol) < 2 then
  49.     return #notcontrol
  50.   end if
  51.   set hitlist to getAt(mycontrol, 1)
  52.   if not listp(hitlist) then
  53.     return #notcontrol
  54.   end if
  55.   set actionlist to getAt(mycontrol, 2)
  56.   if not listp(actionlist) then
  57.     return #notcontrol
  58.   end if
  59.   if (count(actionlist) <> count(hitlist)) or (count(hitlist) = 0) then
  60.     return #badcontrol
  61.   end if
  62.   repeat with i = 1 to count(hitlist)
  63.     if inside(hitpoint, getAt(hitlist, i)) then
  64.       puppetSprite(hiliterect, 0)
  65.       if length(getAt(actionlist, i)) = 6 then
  66.         toobjectmovie(getAt(actionlist, i))
  67.       end if
  68.       exit repeat
  69.     end if
  70.   end repeat
  71. end
  72.  
  73. on checkrollover whichway
  74.   set noroll to 1
  75.   repeat with i = hiliterect - 1 down to 1
  76.     if rollOver(i) then
  77.       if (listp(getAt(gmouseupslist, i)) and ((whichway = #up) or (whichway = #both))) or (listp(getAt(gmousedownslist, i)) and ((whichway = #down) or (whichway = #both))) then
  78.         set objectlist to getAt(getAt(gmouseupslist, i), 2)
  79.         hilitecontrol(i, whichway)
  80.         set noroll to 0
  81.         exit repeat
  82.       end if
  83.     end if
  84.   end repeat
  85.   if noroll then
  86.     set the locH of sprite hiliterect to -1000
  87.     puppetSprite(objectpct, 0)
  88.   end if
  89. end
  90.  
  91. on hilitecontrol contnum, whichway
  92.   set norect to 1
  93.   if (whichway = #up) or (whichway = #both) then
  94.     set upcont to getAt(gmouseupslist, contnum)
  95.     if not listp(upcont) then
  96.       set uprects to []
  97.     end if
  98.     if count(upcont) < 2 then
  99.       set uprects to []
  100.     end if
  101.     if voidp(uprects) then
  102.       set uprects to getAt(upcont, 1)
  103.     else
  104.       nothing()
  105.     end if
  106.   else
  107.     set uprects to []
  108.   end if
  109.   if (whichway = #down) or (whichway = #both) then
  110.     set downcont to getAt(gmousedownslist, contnum)
  111.     if not listp(downcont) then
  112.       set downrects to []
  113.     end if
  114.     if count(downcont) < 2 then
  115.       set downrects to []
  116.     end if
  117.     if voidp(downrects) then
  118.       set downrects to getAt(downcont, 1)
  119.     else
  120.       nothing()
  121.     end if
  122.   else
  123.     set downrects to []
  124.   end if
  125.   set rectlist to combo(uprects, downrects)
  126.   set hoff to the left of sprite contnum
  127.   set voff to the top of sprite contnum
  128.   set where to point(the mouseH - hoff, the mouseV - voff)
  129.   set mouseposition to point(the mouseH, the mouseV)
  130.   puppetSprite(objectpct, 1)
  131.   repeat with r in rectlist
  132.     if inside(where, r) and inside(mouseposition, the rect of sprite 1) then
  133.       set order to getOne(rectlist, r)
  134.       set newobjectpct to getAt(objectlist, order)
  135.       set cnum to the number of member ("E" & newobjectpct & "1")
  136.       if cnum > 0 then
  137.         set the member of sprite objectpct to member ("E" & newobjectpct & "1")
  138.       end if
  139.       spriteBox(hiliterect, getAt(r, 1) + hoff, getAt(r, 2) + voff, getAt(r, 3) + hoff, getAt(r, 4) + voff)
  140.       updateStage()
  141.       set norect to 0
  142.       exit repeat
  143.     end if
  144.   end repeat
  145.   if norect then
  146.     set the locH of sprite hiliterect to -1000
  147.     puppetSprite(objectpct, 0)
  148.     updateStage()
  149.   end if
  150. end
  151.  
  152. on combo alist, anotherlist
  153.   set rectlist to []
  154.   repeat with r in alist
  155.     if ilk(r, #rect) then
  156.       add(rectlist, r)
  157.     end if
  158.   end repeat
  159.   repeat with r in anotherlist
  160.     if ilk(r, #rect) then
  161.       add(rectlist, r)
  162.     end if
  163.   end repeat
  164.   return rectlist
  165. end
  166.